home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / mondu / getcrdir.bas < prev    next >
BASIC Source File  |  1994-07-21  |  413b  |  11 lines
  1. 10 '   カレント・ディレクトリの取得
  2. 20 CLEAR ,,1024,1049,6000:DEFINT A-Z:LOADM "bas_lib.rex",0
  3. 30 CLS:PRINT "start time",TIME$
  4. 40 CMD=0   'REXｱﾄﾞﾚｽをﾛｰﾄﾞしたｵﾌｾｯﾄ
  5. 50 CRDCODE=ASC("D")
  6. 60 GCRDNBUF$=SPACE$(65):GCRDNBUF&=VARPTR(GCRDNBUF$)
  7. 70 RET&=CALLM(CMD,2,CRDCODE,GCRDNBUF&)
  8. 80 PRINT "現在、カレント・ディレクトリは";GCRDNBUF$;"です。"
  9. 140 PRINT "何かキーを押してください。"
  10. 150 WHILE INKEY$="":WEND:END
  11.